null {4}   4 .DECIMAL to POKE
  10 NT=0;clear ;print "STOP CASSETTE!";print 
  20 input "input DECIMAL FROM 0 to   255:"A;if (A<0)+(A>255)goto 20
  30 B=Adiv 128mul 128+(RMdiv 64mul 32)+(RMdiv 32mul 8)+(RMdiv 16mul 2)+(RMdiv 8mul (-32767))+(RMdiv 4mul 8192)+(RMdiv 2mul 2048)+(RMmul 512)
  40 B=Bdiv 2mul 2+(RMmul 2);if B<-32767B=-32767
  50 print B;goto 20
:return ;run 